Programming Languages Suite/ProgramD2.iso/Visual Database/Visual dBase v5.5/MUSIC1.PAK/PRIORITS.WFM

Text File | 1995-07-18 | 6.1 KB | 203 lines

*****************************************************************************
*  PROGRAM:      Priorits.wfm
*
*  WRITTEN BY:   Borland Samples Group
*
*  DATE:         1/94
*
*  UPDATED:      5/95
*
*  REVISION:     $Revision:   1.29  $
*
*  VERSION:      Visual dBASE
*
*  DESCRIPTION:  This is a form showing possible sales ranking (priorities)
*                breakdowns for the available items in the Musical Methods
*                store.  You can view only a list of the possible sales
*                rankings, or you may choose to view the applicable items
*                for each breakdown.
*
*  PARAMETERS:   None
*
*  CALLS:        Priorits.qbe  (view of tables)
*                Music.cc      (for custom pushbuttons)
*                View.mnu      (menu file)
*                View.pop      (popup file)
*                Music.prg     (procedure file)
*
*  USAGE:        DO Priorits.wfm
*
*******************************************************************************
#include "Music.h"

create session
set talk off
set ldcheck off

** END HEADER -- do not remove this line*
* Generated on 06/19/94
*
parameter bModal
local f
f = new PRIORITSFORM()
if (bModal)
   f.mdi = .F. && ensure not MDI
   f.ReadModal()
else
   f.Open()
endif
CLASS PRIORITSFORM OF FORM
   Set Procedure to Music.cc Additive
   this.ReleaseOnClose = .F.
   this.HelpId = "Sales Rankings"
   this.Width =         44.54
   this.View = "PRIORITS.QBE"
   this.Top =          5.52
   this.MenuFile = "VIEW.MNU"
   this.Left =         28.56
   this.Text = "Sales Ranking"
   this.Height =         13.67
   this.OnOpen = CLASS::ONOPEN
   this.OnClose = CLASS::ONCLOSE
   this.ColorNormal = "W"
   this.Minimize = .F.
   this.MousePointer =          1
   this.Maximize = .F.
   this.HelpFile = "Music.hlp"

   DEFINE RECTANGLE LISTRECT OF THIS;
       PROPERTY;
         Width         41.82,;
         Top          0.50,;
         Left          1.19,;
         Text "",;
         Height          8.37,;
         Border .T.,;
         BorderStyle          1,;
         ColorNormal "W*/R"

   DEFINE TEXT SALESRANKINGTEXT OF THIS;
       PROPERTY;
         Width         17.51,;
         Top          0.72,;
         Left          1.87,;
         Text "Sales Rankings:",;
         Height          1.01,;
         Border .F.,;
         ColorNormal "W/R"

   DEFINE MUSICBUTTON ITEMSBUTTON OF THIS;
       PROPERTY;
         HelpID "Items",;
         Width         14.11,;
         Top         11.62,;
         Left         13.60,;
         Text "&Items...",;
         Height          1.50,;
         UpBitmap "RESOURCE #108",;
         ColorNormal "N/W",;
         StatusMessage "Show available items matching the current selection.  Press F1 for Help.",;
         Default .T.,;
         HelpFile "Music.hlp"

   DEFINE CLOSEMBUTTON CLOSEFORMBUTTON OF THIS;
       PROPERTY;
         Width         14.11,;
         Top         11.62,;
         Left         28.56,;
         Height          1.50,;
         ColorNormal "N/W"

   DEFINE IMAGE LOGOIMAGE OF THIS;
       PROPERTY;
         Width         11.39,;
         Top          9.15,;
         Left          1.19,;
         DataSource "FILENAME SMLMUSIC.BMP",;
         Height          4.04,;
         Alignment          2

   DEFINE LISTBOX DESCRIPTLIST OF THIS;
       PROPERTY;
         Visible .F.,;
         Width         39.44,;
         ColorHighLight "W*/R",;
         ID        800,;
         Top          1.73,;
         Left          2.38,;
         DataSource "FIELD PRIORITS->DESCRIPT",;
         Height          6.72,;
         ColorNormal "N/W*"

   ****************************************************************************
   PROCEDURE OnOpen
   ****************************************************************************

   if _app.framewin.text = MUSIC_APP_TITLE    && If called from Music.prg
      EnableViews(this)                       && enable viewing other items,
      trackWindows.AddWindow(form)            && Keep track of open windows

   else                                       && otherwise
      set procedure to Music.prg additive     && Make Music.prg procedure file
   endif

   *** Define corresponding items (initially not visible)
   DefineCorrespondingItems(form)

   *** View Window Settings
   this.OnSize = SizeForm    && Procedure in music.prg

   *** Assign the SpeedMenu for this form
   set procedure to View.pop additive
   this.popupMenu = new ViewPopup(this, "ViewPopup")

   *** Menu Settings
   this.root.view.organization.enabled = .F.
   this.root.view.organization.rank.enabled = .F.
   this.root.view.organization.artist.enabled = .F.
   this.root.view.organization.title.enabled = .F.
   this.root.view.browse.enabled = .F.
   this.popupMenu.organization.enabled = .F.
   this.popupMenu.organization.rank.enabled = .F.
   this.popupMenu.organization.artist.enabled = .F.
   this.popupMenu.organization.title.enabled = .F.
   this.popupMenu.browse.enabled = .F.
   this.root.AssignWindowMenu()

   * Link listbox to the unSKIPped list of parent records
   this.descriptList.dataSource = "FIELD PRIORITS->DESCRIPT"
   this.descriptList.visible = .T.            && Make it visible here so don't
                                              && See flickering in form

   set skip to                                && Parent records shown only once
   this.filter = ""                           && no filter is set yet

   this.musicIsOpen = .F.                     && Corresponding items not visible
                                              && yet

   this.itemsButton.OnClick = CorrespondingItems  && procedure in Music.prg


   ****************************************************************************
   PROCEDURE OnClose
   ****************************************************************************

   if _app.framewin.text = MUSIC_APP_TITLE
      trackWindows.DeleteWindow(form)
   else
      close procedure Music.prg
   endif
   close procedure Music.cc, View.pop


ENDCLASS